home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 August / macformat-027.iso / mac / Shareware City / Developers / SAT / Tutorial ƒ / Assignment1.p next >
Encoding:
Text File  |  1995-01-16  |  418 b   |  18 lines  |  [TEXT/PJMM]
  1. program Assignment1;
  2.     uses
  3. {$ifc UNDEFINED THINK_PASCAL}
  4.         Types, QuickDraw, Menus, Windows, TextEdit, Fonts, Dialogs, Memory, OSEvents, {}
  5. {$endc}
  6.         SAT;
  7. begin
  8. {$ifc UNDEFINED THINK_PASCAL}
  9.     SATInitToolbox;
  10. {$endc}
  11.  
  12.     SATInit(128, 129, 478, 302);
  13.     while not Button do
  14.         ;
  15. end.
  16.  
  17. {Note: If you use Think Pascal, you can close this file and then alt-double-click in the}
  18. {project window to switch to another source file.}